The World of Computer Software/The World of Computer Software.iso/sre0990a.zip/SRE.CFG

Text File | 1993-01-07 | 8KB | 189 lines

{
  begin "SRE:II Installation"
  ------------------------
  (set game "SRE")
  (set version "0.990")
  (set 4-dos (4-dos?))
  (set ResourceFile "RESOURCE.DAT")

  (display (cc 14) game " " (cc 15) version (cc 7) " setup:\n\n")

  (display "The " game " directory is `" (cc 14) (fix-path (get-cwd)) (cc 7) "'.\n\n")

  (set BBSDirectory (read-string "Which directory is your BBS in?\n> "))
  [ if (not BBSDirectory)
      (set BBSDirectory ".")
  ]
  (set BBSDirectory (fix-path BBSDirectory))
  (set DoorFileDir BBSDirectory)
  [ if (not (ask "Does your BBS produce door files in " (cc 14) DoorFileDir (cc 7) "?  [Y/n] "))
      (set DoorFileDir (read-string "Enter the full path for your BBS's door files:\n> "))
      (set DoorFileDir (fix-path DoorFileDir))
  ]

  (write-setup-sr)

  (set BatchFile (concat BBSDirectory game ".BAT"))
  [ if (not (ask "Write to " (cc 14) BatchFile (cc 7) "?  [Y/n] "))
      (set BatchFile (read-string "Enter the full filename for your batch file:\n> "))
  ]

  (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))

  "Ask about special effects"
  (display "Special effects are extra ANSI animations shown when the user is at a\n"
           "prompt.  They may slow down systems running under DESQview, MS-Windows,\n"
           "or OS/2.  They also may fill up your modem buffer if you use locked\n"
           "baud rates.  If you are running under a multitasking system or you\n"
           "have a high-speed modem, I recommend not using special effects.\n")
  (set SpecialEffects (ask "Do you want Special Effects? [Y/n] "))
  [ if (not (error? SpecialEffects))
    (if SpecialEffects (set SpecialEffects "TRUE"))
    (if (not SpecialEffects) (set SpecialEffects "FALSE"))
    (resource-edit ResourceFile "SpecialEffects" SpecialEffects)
  ]

  (set LockedBaud (read-string "If you have locked baud rates, please enter the baud rate:\n> "))
  (if LockedBaud (resource-edit ResourceFile "LockBaudRate" LockedBaud))
  (if (not LockedBaud) (resource-edit ResourceFile "LockBaudRate" "none"))

  (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))

  (set L-ansi-scores
    (read-string "If you want an ANSI score file, enter the full filename:\n> "))
  (if L-ansi-scores
        (resource-edit ResourceFile "Scores.File.ANSI" L-ansi-scores))
  (if (not L-ansi-scores)
        (resource-edit ResourceFile "Scores.File.ANSI" "\"\""))
  (set L-text-scores
    (read-string "If you want a TEXT score file, enter the full filename:\n> "))
  (if L-text-scores
        (resource-edit ResourceFile "Scores.File.Text" L-text-scores))
  (if (not L-text-scores)
        (resource-edit ResourceFile "Scores.File.Text" "\"\""))

  (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))

  (set L-ansi-news
    (read-string "If you want an ANSI Today's news file, enter the full filename:\n> "))
  (set L-text-news
    (read-string "If you want a TEXT Today's news file, enter the full filename:\n> "))
  (set L-ansi-ynews
    (read-string "If you want an ANSI Yesterday's news file, enter the full filename:\n> "))
  (set L-text-ynews
    (read-string "If you want a TEXT Yesterday's news file, enter the full filename:\n> "))

  (display (cc 12) "\n\n ─────────────────────────────────────────────────────────────────────\n" (cc 7))

  [ if (not BatchFile)
    (display "Not creating a batch file.\n")
  ]

  [ if BatchFile
    (display "Writing to " (cc 14) BatchFile (cc 7) "\n")

    "Write a batch file"
    (rewrite BatchFile)

    (write "@ECHO OFF\n")
    [ if 4-dos
        (write "REM 4-DOS version\n")
        (write "PUSHD " (fix-path (get-cwd)) "\n")
    ]
    (if (not 4-dos) (write (cd-cmd (fix-path (get-cwd)))))

    (set Setup (setup-type))
    (set done? #f)

    [ if (= Setup "Searchlight")
        " %1 is the username "
        " %2 is ANSI:  `C' means yes"
        " %3 is Time left"
        " %4 is Baud rate"
        " %5 is COM port"
        (set done? #t)
        (write "ECHO %1  >DOORFILE.SR\n"
               "IF [%2]==[C] ECHO 1 >>DOORFILE.SR\n"
               "IF NOT [%2]==[C] ECHO 0 >>DOORFILE.SR\n"
               "ECHO -1 >>DOORFILE.SR\n"
               "ECHO 25 >>DOORFILE.SR\n")
        [ if LockedBaud
          (write "REM For non-locked, use ECHO %4 >>DOORFILE.SR\n"
                 "ECHO " LockedBaud " >>DOORFILE.SR\n")
        ]
        [ if (not LockedBaud)
          (write "ECHO %4 >>DOORFILE.SR\n")
        ]
        (write "ECHO %5 >>DOORFILE.SR\n")
        (write "ECHO %3 >>DOORFILE.SR\n")
    ]

    [ if (= Setup "PC-Board NEW")
        (display "PC-Board 14.x support has not yet been added to SRDOOR.\n")
        (set done? #t)
        (set PCB-2-SR (ask "Do you have PCB-2-SRE? [Y/N] "))
        [ if PCB-2-SR
          (display "Which directory is PCB-2-SRE in (include drive and trailing '\\')?\n")
          (set PCB-dir (read-string "> "))
          (write PCB-dir "PCB2SRE /B=" DoorFileDir " /D=. /P /L=24\n")
        ]
        [ if (not PCB-2-SR)
          (write "ECHO PC-Board support is not working yet.")
          (display "PC-Board 14.x support has not been added to SRDOOR.  There "
                   "is a program called PCB-2-SRE that converts PC-Board 14.5 files "
                   "to the format that " game " requires.  You might want to get "
                   "PCB-2-SRE or a door converter that converts to a format used "
                   "by another BBS.  (You will have to run the installation "
                   "again.)  PCB-2-SRE is available on the Solar Realm, and you can "
                   "contact the author at [e-mail] (through "
                   "Internet or CompuServe).\n")
        ]
    ]

    [ if (= Setup "Maximus")
        (display "The installation program assumes you are using Dennis Lozen's "
                 "Maximus installation setup.  If you are not, and you prefer to "
                 "use DORINFO1.DEF for your setup, please re-run the installer "
                 "for the New RBBS setup.\n")
        (set done? #t)
    ]

    [ if (not done?)
        (write "SRDOOR")
        [ if (= Setup "GT")
            (set ComPort (read-string "On what COM port do you run?  [1-8]\n> "))
            (write " GT " ComPort)
        ]
        [ if (= Setup "PC-Board OLD")
            (set ComPort (read-string "On what COM port do you run?  [1-8]\n> "))
            (write " PCBOARD2 " ComPort)
        ]
        (write "\n")
    ]

    (write game "\n")

    (if L-ansi-news (write "COPY NEWS.ANS " L-ansi-news "\n"))
    (if L-text-news (write "COPY NEWS.TXT " L-text-news "\n"))
    (if L-ansi-ynews (write "COPY YESTNEWS.ANS " L-ansi-ynews "\n"))
    (if L-text-ynews (write "COPY YESTNEWS.TXT " L-text-ynews "\n"))

    (if 4-dos (write "POPD\n"))
    (if (not 4-dos) (write (cd-cmd BBSDirectory)))

    (write "EXIT\n")
  ]

  (display (cc 12) " ──────────────────────────────────────────────────────────────────────\n" (cc 7))

  (display (cc 15) "\nImportant:  " (cc 7) "Run " (cc 14) "SRE RESET" (cc 7) " to set up a new game of SRE.\n\n")
  (display "\nSee " (cc 14) "Docs/Resource.DOC" (cc 7) " for setup/customization information.\n")
  (display "See " (cc 14) "Docs/Sysop.DOC" (cc 7) " for information on customizing SRE.\n")
  (display "See " (cc 14) "Docs/Register.DOC" (cc 7) " for info on registration.\n")

  (pause "\nPress any key to exit... ")
  ----------------------
  end "SRE Installation"
}